From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 29 Jul 2002 17:29:31 +0000 (+0000)
Subject: (check-ispell-version): Bind default-directory
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~55916
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=6daa20b07490957736ea8e1f3238694479585071;p=emacs.git

(check-ispell-version): Bind default-directory
to avoid errors.  Kill the old temp buffer at the beginning.
---

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index d1547c87820..30b1c71f97b 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -726,8 +726,11 @@ Otherwise returns the library directory name, if that is defined."
   (let ((case-fold-search-val case-fold-search)
 	;; avoid bugs when syntax of `.' changes in various default modes
 	(default-major-mode 'fundamental-mode)
+	(default-directory temporary-file-directory)
 	result status)
     (save-excursion
+      (let ((buf (get-buffer " *ispell-tmp*")))
+	(if buf (kill-buffer buf)))
       (set-buffer (get-buffer-create " *ispell-tmp*"))
       (erase-buffer)
       (setq status (call-process